/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / database / vicinity / !Vicinity / Auto / Extended / Surname

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 3e f4 20 53 6f | 72 74 20 62 79 20 53 75 |...>. So|rt by Su|
|00000010| 72 6e 61 6d 65 21 73 6f | 72 74 20 62 79 20 74 68 |rname!so|rt by th|
|00000020| 65 20 6c 61 73 74 20 77 | 6f 72 64 20 69 6e 20 61 |e last w|ord in a|
|00000030| 6e 20 65 6e 74 72 69 65 | 73 20 6e 61 6d 65 0d 00 |n entrie|s name..|
|00000040| 14 0e f4 20 3e 53 75 72 | 6e 61 6d 65 0d 00 1e 23 |... >Sur|name...#|
|00000050| f4 20 4a 75 67 67 6c 65 | 72 2c 20 73 6f 72 74 73 |. Juggle|r, sorts|
|00000060| 20 62 79 20 74 68 65 20 | 73 75 72 6e 61 6d 65 0d | by the |surname.|
|00000070| 00 28 0c ee 85 f6 3a f1 | 9e 3a e0 0d 00 32 05 3a |.(....:.|.:...2.:|
|00000080| 0d 00 3c 24 f2 69 6e 69 | 74 5f 61 72 67 73 28 22 |..<$.ini|t_args("|
|00000090| 72 65 63 73 2f 65 2c 64 | 61 74 61 2f 65 2c 69 6e |recs/e,d|ata/e,in|
|000000a0| 66 6f 22 29 0d 00 46 05 | 3a 0d 00 50 1f 72 65 63 |fo")..F.|:..P.rec|
|000000b0| 6f 72 64 73 25 3d a4 61 | 72 67 73 5f 65 76 61 6c |ords%=.a|rgs_eval|
|000000c0| 28 22 72 65 63 73 22 29 | 0d 00 5a 20 76 69 63 69 |("recs")|..Z vici|
|000000d0| 6e 69 74 79 25 3d a4 61 | 72 67 73 5f 65 76 61 6c |nity%=.a|rgs_eval|
|000000e0| 28 22 64 61 74 61 22 29 | 0d 00 64 1c 69 6e 66 6f |("data")|..d.info|
|000000f0| 24 3d a4 61 72 67 73 5f | 74 65 78 74 28 22 69 6e |$=.args_|text("in|
|00000100| 66 6f 22 29 0d 00 6e 05 | 3a 0d 00 78 15 c8 99 20 |fo")..n.|:..x... |
|00000110| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 6e 22 0d 00 |"Hourgla|ss_On"..|
|00000120| 82 05 3a 0d 00 8c 13 53 | 25 3d 72 65 63 6f 72 64 |..:....S|%=record|
|00000130| 73 25 2a 34 2b 34 0d 00 | 96 1e de 20 70 74 72 73 |s%*4+4..|... ptrs|
|00000140| 25 20 53 25 2c 70 72 65 | 25 20 53 25 2c 72 65 63 |% S%,pre|% S%,rec|
|00000150| 25 20 53 25 0d 00 a0 0e | 70 74 72 25 3d 70 74 72 |% S%....|ptr%=ptr|
|00000160| 73 25 0d 00 aa 15 e3 20 | 69 25 3d 30 20 b8 20 72 |s%..... |i%=0 . r|
|00000170| 65 63 6f 72 64 73 25 0d | 00 b4 21 20 72 65 63 25 |ecords%.|..! rec%|
|00000180| 21 28 69 25 2a 34 29 3d | 76 69 63 69 6e 69 74 79 |!(i%*4)=|vicinity|
|00000190| 25 2b 69 25 2a 32 35 32 | 0d 00 be 16 20 21 70 74 |%+i%*252|.... !pt|
|000001a0| 72 25 3d 72 65 63 25 21 | 28 69 25 2a 34 29 0d 00 |r%=rec%!|(i%*4)..|
|000001b0| c8 13 20 74 24 3d a4 6d | 74 78 28 21 70 74 72 25 |.. t$=.m|tx(!ptr%|
|000001c0| 29 0d 00 d2 10 20 c8 95 | 20 a7 74 24 2c 22 20 22 |).... ..| .t$," "|
|000001d0| 29 0d 00 dc 15 20 20 21 | 70 74 72 25 2b 3d a7 74 |)....  !|ptr%+=.t|
|000001e0| 24 2c 22 20 22 29 0d 00 | e6 18 20 20 74 24 3d c1 |$," ")..|..  t$=.|
|000001f0| 74 24 2c a7 74 24 2c 22 | 20 22 29 2b 31 29 0d 00 |t$,.t$,"| ")+1)..|
|00000200| f0 06 20 ce 0d 00 fa 16 | 20 70 72 65 25 21 28 69 |.. .....| pre%!(i|
|00000210| 25 2a 34 29 3d 21 70 74 | 72 25 0d 01 04 0c 20 70 |%*4)=!pt|r%.... p|
|00000220| 74 72 25 2b 3d 34 0d 01 | 0e 05 ed 0d 01 18 05 3a |tr%+=4..|.......:|
|00000230| 0d 01 22 27 c8 99 20 22 | 4f 53 5f 48 65 61 70 53 |.."'.. "|OS_HeapS|
|00000240| 6f 72 74 22 2c 72 65 63 | 6f 72 64 73 25 2b 31 2c |ort",rec|ords%+1,|
|00000250| 70 74 72 73 25 2c 35 0d | 01 2c 05 3a 0d 01 36 1d |ptrs%,5.|.,.:..6.|
|00000260| 76 69 6e 73 69 7a 65 25 | 3d 72 65 63 6f 72 64 73 |vinsize%|=records|
|00000270| 25 2a 32 35 32 2b 32 35 | 32 0d 01 40 14 de 20 61 |%*252+25|2..@.. a|
|00000280| 72 65 61 25 20 76 69 6e | 73 69 7a 65 25 0d 01 4a |rea% vin|size%..J|
|00000290| 05 3a 0d 01 54 15 e3 20 | 69 25 3d 30 20 b8 20 72 |.:..T.. |i%=0 . r|
|000002a0| 65 63 6f 72 64 73 25 0d | 01 5e 09 20 65 25 3d 30 |ecords%.|.^. e%=0|
|000002b0| 0d 01 68 21 20 c8 95 20 | 70 74 72 73 25 21 28 69 |..h! .. |ptrs%!(i|
|000002c0| 25 2a 34 29 3c 3e 70 72 | 65 25 21 28 65 25 2a 34 |%*4)<>pr|e%!(e%*4|
|000002d0| 29 0d 01 72 0b 20 20 65 | 25 2b 3d 31 0d 01 7c 06 |)..r.  e|%+=1..|.|
|000002e0| 20 ce 0d 01 86 35 20 c8 | 99 20 22 4d 65 6d 4d 61 | ....5 .|. "MemMa|
|000002f0| 6e 5f 43 6f 70 79 4d 65 | 6d 22 2c 72 65 63 25 21 |n_CopyMe|m",rec%!|
|00000300| 28 65 25 2a 34 29 2c 61 | 72 65 61 25 2b 32 35 32 |(e%*4),a|rea%+252|
|00000310| 2a 69 25 2c 32 35 32 0d | 01 90 05 ed 0d 01 9a 05 |*i%,252.|........|
|00000320| 3a 0d 01 a4 30 c8 99 20 | 22 4d 65 6d 4d 61 6e 5f |:...0.. |"MemMan_|
|00000330| 43 6f 70 79 4d 65 6d 22 | 2c 61 72 65 61 25 2c 76 |CopyMem"|,area%,v|
|00000340| 69 63 69 6e 69 74 79 25 | 2c 76 69 6e 73 69 7a 65 |icinity%|,vinsize|
|00000350| 25 0d 01 ae 05 3a 0d 01 | b8 16 c8 99 20 22 48 6f |%....:..|.... "Ho|
|00000360| 75 72 67 6c 61 73 73 5f | 4f 66 66 22 0d 01 c2 1d |urglass_|Off"....|
|00000370| 2a 53 65 74 20 56 69 63 | 69 6e 69 74 79 24 41 6c |*Set Vic|inity$Al|
|00000380| 74 65 72 65 64 20 59 65 | 73 0d 01 cc 05 e0 0d 01 |tered Ye|s.......|
|00000390| d6 05 3a 0d 01 e0 27 dd | 20 f2 69 6e 69 74 5f 61 |..:...'.| .init_a|
|000003a0| 72 67 73 28 74 6f 6b 65 | 6e 73 61 66 74 65 72 62 |rgs(toke|nsafterb|
|000003b0| 61 73 69 63 71 75 69 74 | 24 29 0d 01 ea 0d ea 20 |asicquit|$)..... |
|000003c0| 74 6f 6b 65 6e 73 24 0d | 01 f4 13 de 20 61 72 67 |tokens$.|.... arg|
|000003d0| 73 62 75 66 66 25 20 32 | 35 36 0d 01 fe 1b 74 6f |sbuff% 2|56....to|
|000003e0| 6b 65 6e 73 24 3d 22 42 | 41 53 49 43 2c 71 75 69 |kens$="B|ASIC,qui|
|000003f0| 74 2f 6b 73 22 0d 02 08 | 44 e7 20 74 6f 6b 65 6e |t/ks"...|D. token|
|00000400| 73 61 66 74 65 72 62 61 | 73 69 63 71 75 69 74 24 |safterba|sicquit$|
|00000410| 3c 3e 22 22 20 8c 20 74 | 6f 6b 65 6e 73 24 2b 3d |<>"" . t|okens$+=|
|00000420| 22 2c 22 2b 74 6f 6b 65 | 6e 73 61 66 74 65 72 62 |","+toke|nsafterb|
|00000430| 61 73 69 63 71 75 69 74 | 24 0d 02 12 28 f2 61 72 |asicquit|$...(.ar|
|00000440| 67 73 5f 70 72 6f 63 65 | 73 73 28 61 72 67 73 62 |gs_proce|ss(argsb|
|00000450| 75 66 66 25 2c 32 35 36 | 2c 74 6f 6b 65 6e 73 24 |uff%,256|,tokens$|
|00000460| 29 0d 02 1c 05 e1 0d 02 | 26 05 3a 0d 02 30 20 dd |).......|&.:..0 .|
|00000470| 20 f2 61 72 67 73 5f 70 | 72 6f 63 65 73 73 28 61 | .args_p|rocess(a|
|00000480| 62 25 2c 61 6c 25 2c 6b | 64 24 29 0d 02 3a 09 ea |b%,al%,k|d$)..:..|
|00000490| 20 65 6e 25 0d 02 44 18 | c8 99 20 22 4f 53 5f 47 | en%..D.|.. "OS_G|
|000004a0| 65 74 45 6e 76 22 20 b8 | 20 65 6e 25 0d 02 4e 14 |etEnv" .| en%..N.|
|000004b0| 61 72 67 73 5f 62 75 66 | 66 65 72 25 3d 61 62 25 |args_buf|fer%=ab%|
|000004c0| 0d 02 58 14 61 72 67 73 | 5f 6c 65 6e 67 74 68 25 |..X.args|_length%|
|000004d0| 3d 61 6c 25 0d 02 62 14 | 61 72 67 73 5f 6b 65 79 |=al%..b.|args_key|
|000004e0| 64 65 66 24 3d 6b 64 24 | 0d 02 6c 27 f2 61 72 67 |def$=kd$|..l'.arg|
|000004f0| 73 5f 70 72 6f 63 65 73 | 73 67 69 76 65 6e 28 65 |s_proces|sgiven(e|
|00000500| 6e 25 2c 61 62 25 2c 61 | 6c 25 2c 6b 64 24 29 0d |n%,ab%,a|l%,kd$).|
|00000510| 02 76 05 e1 0d 02 80 05 | 3a 0d 02 8a 29 dd 20 f2 |.v......|:...). .|
|00000520| 61 72 67 73 5f 70 72 6f | 63 65 73 73 67 69 76 65 |args_pro|cessgive|
|00000530| 6e 28 65 6e 25 2c 61 62 | 25 2c 61 6c 25 2c 6b 64 |n(en%,ab|%,al%,kd|
|00000540| 24 29 0d 02 94 24 c8 99 | 20 22 4f 53 5f 52 65 61 |$)...$..| "OS_Rea|
|00000550| 64 41 72 67 73 22 2c 6b | 64 24 2c 65 6e 25 2c 61 |dArgs",k|d$,en%,a|
|00000560| 62 25 2c 61 6c 25 0d 02 | 9e 05 e1 0d 02 a8 05 3a |b%,al%..|.......:|
|00000570| 0d 02 b2 1e dd 20 a4 61 | 72 67 73 5f 74 6f 6b 65 |..... .a|rgs_toke|
|00000580| 6e 28 61 62 25 2c 6b 64 | 24 2c 74 6b 24 29 0d 02 |n(ab%,kd|$,tk$)..|
|00000590| bc 0e ea 20 6b 24 2c 6a | 24 2c 6a 25 0d 02 c6 16 |... k$,j|$,j%....|
|000005a0| e7 20 a7 6b 64 24 2c 74 | 6b 24 29 3d 30 20 8c 20 |. .kd$,t|k$)=0 . |
|000005b0| 3d 30 0d 02 d0 10 6a 24 | 3d a4 6c 6f 77 28 6b 64 |=0....j$|=.low(kd|
|000005c0| 24 29 0d 02 da 08 6a 25 | 3d 30 0d 02 e4 11 74 6b |$)....j%|=0....tk|
|000005d0| 24 3d a4 6c 6f 77 28 74 | 6b 24 29 0d 02 ee 0f c8 |$=.low(t|k$).....|
|000005e0| 95 20 a7 6a 24 2c 22 2c | 22 29 0d 02 f8 17 20 6b |. .j$,",|").... k|
|000005f0| 24 3d c0 6a 24 2c a7 6a | 24 2c 22 2c 22 29 2d 31 |$=.j$,.j|$,",")-1|
|00000600| 29 0d 03 02 1d 20 e7 20 | a7 6b 24 2c 74 6b 24 29 |).... . |.k$,tk$)|
|00000610| 20 8c 20 3d 61 62 25 21 | 28 6a 25 2a 34 29 0d 03 | . =ab%!|(j%*4)..|
|00000620| 0c 17 20 6a 24 3d c1 6a | 24 2c a7 6a 24 2c 22 2c |.. j$=.j|$,.j$,",|
|00000630| 22 29 2b 31 29 0d 03 16 | 0a 20 6a 25 2b 3d 31 0d |")+1)...|. j%+=1.|
|00000640| 03 20 05 ce 0d 03 2a 1c | e7 20 a7 6a 24 2c 74 6b |. ....*.|. .j$,tk|
|00000650| 24 29 20 8c 20 3d 61 62 | 25 21 28 6a 25 2a 34 29 |$) . =ab|%!(j%*4)|
|00000660| 0d 03 34 06 3d 30 0d 03 | 3e 05 3a 0d 03 48 22 dd |..4.=0..|>.:..H".|
|00000670| 20 a4 61 72 67 73 5f 74 | 6f 6b 65 6e 74 65 78 74 | .args_t|okentext|
|00000680| 28 61 62 25 2c 6b 64 24 | 2c 74 6b 24 29 0d 03 52 |(ab%,kd$|,tk$)..R|
|00000690| 0b ea 20 6d 25 2c 74 24 | 0d 03 5c 1f 6d 25 3d a4 |.. m%,t$|..\.m%=.|
|000006a0| 61 72 67 73 5f 74 6f 6b | 65 6e 28 61 62 25 2c 6b |args_tok|en(ab%,k|
|000006b0| 64 24 2c 74 6b 24 29 0d | 03 66 21 e7 20 28 6d 25 |d$,tk$).|.f!. (m%|
|000006c0| 80 26 46 46 30 30 30 30 | 30 30 29 20 84 20 6d 25 |.&FF0000|00) . m%|
|000006d0| 3d 30 20 8c 20 3d 22 22 | 0d 03 70 09 74 24 3d 22 |=0 . =""|..p.t$="|
|000006e0| 22 0d 03 7a 0d c8 95 20 | 3f 6d 25 3e 33 31 0d 03 |"..z... |?m%>31..|
|000006f0| 84 0d 20 74 24 2b 3d bd | 3f 6d 25 0d 03 8e 0a 20 |.. t$+=.|?m%.... |
|00000700| 6d 25 2b 3d 31 0d 03 98 | 05 ce 0d 03 a2 07 3d 74 |m%+=1...|......=t|
|00000710| 24 0d 03 ac 05 3a 0d 03 | b6 22 dd 20 a4 61 72 67 |$....:..|.". .arg|
|00000720| 73 5f 74 6f 6b 65 6e 65 | 76 61 6c 28 61 62 25 2c |s_tokene|val(ab%,|
|00000730| 6b 64 24 2c 74 6b 24 29 | 0d 03 c0 0b ea 20 6d 25 |kd$,tk$)|..... m%|
|00000740| 2c 74 24 0d 03 ca 1f 6d | 25 3d a4 61 72 67 73 5f |,t$....m|%=.args_|
|00000750| 74 6f 6b 65 6e 28 61 62 | 25 2c 6b 64 24 2c 74 6b |token(ab|%,kd$,tk|
|00000760| 24 29 0d 03 d4 20 e7 20 | 28 6d 25 80 26 46 46 30 |$)... . |(m%.&FF0|
|00000770| 30 30 30 30 30 29 20 84 | 20 6d 25 3d 30 20 8c 20 |00000) .| m%=0 . |
|00000780| 3d 30 0d 03 de 09 6d 25 | 2b 3d 31 0d 03 e8 08 3d |=0....m%|+=1....=|
|00000790| 21 6d 25 0d 03 f2 05 3a | 0d 03 fc 44 dd 20 a4 61 |!m%....:|...D. .a|
|000007a0| 72 67 73 5f 74 65 78 74 | 28 74 6b 24 29 3d a4 61 |rgs_text|(tk$)=.a|
|000007b0| 72 67 73 5f 74 6f 6b 65 | 6e 74 65 78 74 28 61 72 |rgs_toke|ntext(ar|
|000007c0| 67 73 5f 62 75 66 66 65 | 72 25 2c 61 72 67 73 5f |gs_buffe|r%,args_|
|000007d0| 6b 65 79 64 65 66 24 2c | 74 6b 24 29 0d 04 06 05 |keydef$,|tk$)....|
|000007e0| 3a 0d 04 10 44 dd 20 a4 | 61 72 67 73 5f 65 76 61 |:...D. .|args_eva|
|000007f0| 6c 28 74 6b 24 29 3d a4 | 61 72 67 73 5f 74 6f 6b |l(tk$)=.|args_tok|
|00000800| 65 6e 65 76 61 6c 28 61 | 72 67 73 5f 62 75 66 66 |eneval(a|rgs_buff|
|00000810| 65 72 25 2c 61 72 67 73 | 5f 6b 65 79 64 65 66 24 |er%,args|_keydef$|
|00000820| 2c 74 6b 24 29 0d 04 1a | 05 3a 0d 04 24 0e dd 20 |,tk$)...|.:..$.. |
|00000830| a4 6d 74 78 28 6d 25 29 | 0d 04 2e 08 ea 20 74 24 |.mtx(m%)|..... t$|
|00000840| 0d 04 38 09 74 24 3d 22 | 22 0d 04 42 0d c8 95 20 |..8.t$="|"..B... |
|00000850| 3f 6d 25 3e 33 31 0d 04 | 4c 0d 20 74 24 2b 3d bd |?m%>31..|L. t$+=.|
|00000860| 3f 6d 25 0d 04 56 0a 20 | 6d 25 2b 3d 31 0d 04 60 |?m%..V. |m%+=1..`|
|00000870| 05 ce 0d 04 6a 07 3d 74 | 24 0d 04 74 05 3a 0d 04 |....j.=t|$..t.:..|
|00000880| 7e 0e dd 20 a4 6c 6f 77 | 28 74 24 29 0d 04 88 0b |~.. .low|(t$)....|
|00000890| ea 20 70 25 2c 63 25 0d | 04 92 10 e3 20 70 25 3d |. p%,c%.|.... p%=|
|000008a0| 31 20 b8 20 a9 74 24 0d | 04 9c 12 20 63 25 3d 97 |1 . .t$.|... c%=.|
|000008b0| c1 74 24 2c 70 25 2c 31 | 29 0d 04 a6 23 20 e7 20 |.t$,p%,1|)...# . |
|000008c0| 63 25 3e 3d 97 22 41 22 | 20 80 20 63 25 3c 3d 97 |c%>=."A"| . c%<=.|
|000008d0| 22 5a 22 20 8c 20 63 25 | 2b 3d 33 32 0d 04 b0 12 |"Z" . c%|+=32....|
|000008e0| 20 c1 74 24 2c 70 25 2c | 31 29 3d bd 63 25 0d 04 | .t$,p%,|1)=.c%..|
|000008f0| ba 05 ed 0d 04 c4 07 3d | 74 24 0d ff             |.......=|t$..    |
+--------+-------------------------+-------------------------+--------+--------+